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DESCRIPTION: 



Input a Sequence of Decimal Fractions (DOI or SADOl) 

Closed with one program parameter 

26 

0, 1, 2 



+ 2 



40 



k ms per digit (input time) 

This routine at location p is called into use by the orders 

q — nF n is the first of the 

50 qF sequence of locations at 

q+1 2.6 pF which the decimal fractions 

are stored « 
It reads a sequence bf decimal fractions from the tape. 
Each fraction is punched on the tape as a sign, K (+) or 
S (-)j followed by up to 12 decimal digits % the final 
fraction in the sequence is terminated by an Nj J, F, 
or L. When this subroutine reads one of these terminating 

symbols it returns control to the main routine. Upon 

-59 -59 -^G 
leaving this routine j, 0x2 "^ s 1x2 a 2 x 2 ■ or 

5 x 2 ■" is left in the accumulator according as whether 

the terminating symbol Is N_, J 3 F or L. 

This program works by bringing in the decimal fraction 



a l* a 2* 



•*} a one digit at a time* Now this number 

«•« a = N /d where a~ Is the sign of the 
* p p p ^ 

number and p < 12 « 



a. 



l 2> 



When the i+1 digit is read,, we have stored 



D./2 = D. ,/2 x 10 in location 1 and M. 
i' i-l' l 

in location .where N. 
V 2 = ^ % = a o -5 



N. - D./2, 
l 1/ ' 



10 N. , + a,, 
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Set link address and storage address 
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l4 4l 

42 11L 
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Read in first sign digits a Q 




LO 25L 
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Store a, * 10 
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M./D. + 2 = N./D. +2-1 
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SJ F 




n./d. - 1/2 
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40 F 
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From 15 
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40 IF 








L5 (2)F 


By 10 ' 


Choose and store either + N./d. or - H./D.' 

i' i ' i' 1 
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40 (n)F 
L5 8l 


by J 
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Increase storage address 
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L5 2F 
42 7L 


From 3 
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LO 23L 
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32 (q+l)F 


By 1' 


= N return to main routine 
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D Q /2 = 5 
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Read in digit a.. 
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LO 25L 
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46 2F 




Store a, - 10 
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32 6L 




Check for sign or terminating symbol 




L4 24l 


+ 5 
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40 F 


From 22 f 


Store a.. - 5 = H. , M. 




81 4F 
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Read in a. 
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